home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / mmlc / sample / sample4.m2 < prev    next >
Encoding:
Text File  |  1995-07-24  |  3.0 KB  |  129 lines
  1. /*
  2.     MML compiler [M2] ***********************************
  3.      Sample music 4 / presented by SHINNOSUKE 1995
  4. */
  5.  
  6. .title     [M2] Sample music 4
  7. .copyright (c)SHINNOSUKE 1995
  8.  
  9. .tempo 80
  10. .signature 4/4
  11.  
  12. .division 48
  13.  
  14. .begin
  15.  
  16. #define GSRESET    @x[4110421240007f0041]
  17. #define RND_PAN    @r[41104212401X1C00]
  18. #define RHYTHM_OFF    @r[41104212401X1500]
  19. #define RHYTHM_MAP1    @r[41104212401X1501]
  20. #define RHYTHM_MAP2    @r[41104212401X1502]
  21.  
  22. Gsreset
  23. {
  24.  1[0] = $GSRESET r2;
  25. }
  26.  
  27. Set
  28. {
  29. 1[0]=v15 @41 @c7/80 o5q8;
  30. 2[0]=v13 @c91/80 @c93/0 @c0/8 @5o3q8;
  31. 10[0]=$RHYTHM_MAP1 @c91/60@c93/0@c7/110;
  32. 11[0]=$RHYTHM_MAP2 @26@c91/60@c93/10@c7/110 r2;
  33. }
  34.  
  35.  
  36. Intro
  37. {
  38. 10[1]=
  39.  $(n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,2,100@h10)
  40.  n36,2,100n75,2,100@h11n38,8,90@h10n36,8,90r8@h10n50,8,70r8n48,8,60
  41.  @h11$(n38,16,70)2@h10n45,8,70;
  42. 10[2]=
  43.  $($(n42,8,90n42,8,30n42,8,100n42,8,30)4)
  44.  $(n42,8,90n42,8,30n42,8,100n42,8,30)3 r8n49,8,30;
  45. }
  46.  
  47. #for 2
  48.  
  49. Section-A
  50. {
  51. 1[0]=l8
  52.  d.d.de.d.c+< b1 >c+.c+.c+c+.e.c+ <b.b.a&a2>
  53.  d.d.de.d.c+< b1 >c+.c+.c+c+.e.g f+1
  54.  e.g.f+.e.gf+ e4.ec+2
  55.  <a.>c+.e.f+.gf+ e4.d16c+16<b2
  56.  b.>d.<b16b16 b.>d.c+16d16 e1;
  57. 2[0]=l1
  58.  (d|f+|a)(d|g|b)(e|a|>c+<)(f+|b|>d<)
  59.  (d|f+|a)(d|g|b)(e|a|>c+<)(f+|b|>d<)
  60.  (e|g|b)(e|a|>c+<)(f+|a|>c+<)(f+|b|>d<)
  61.  (g2g+2|b2b2|>d2d2<)(a2a2|>d2c+2<|>e2e2<);
  62. 10[1]=
  63.  $(n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,2,100@h10)6
  64.  n36,2,100n75,2,100
  65.  n36,4,100r8n36,8,60@h11n38,4,100$(n38,16,50)2@h10n45,8,50;
  66. 10[2]=
  67.  $($(n42,8,90n42,8,30n42,8,100n42,8,30)2)14;
  68. }
  69.  
  70. Section-B
  71. {
  72. 1[0]=l8
  73.  f+4.ge4.c+16d16 e.e.gf+4.d16c+16< b.b.>dc+.<b.a f+1>
  74.  f+4.ge4.c+16d16 e.e.gf+4.d16c+16< b.b.>df+.e.d e4.f+f+2
  75.  f+4.ge4.c+16d16 >d4.c+<b2 b4.>dc+.<b.a f+1
  76.  f+4.ge4.c+16d16 e.e.ag4f+d16c+16 <b.b.>dg.f+.e d4.dd2;
  77. 2[0]=l2
  78.  (g|>d<|>f+<)(g|>c+<|>e<)(f+|>c+<|>e<)(f+|b|>d<)
  79.  (e|b|>d<)(e|a|>c+<)(d|a|>c+<)(d|a|>c<)
  80.  (g|>d<|>f+<)(g|>c+<|>e<)(f+|>c+<|>e<)(f+|b|>d<)
  81.  (e|b|>d<)(e|a|>c+<)(d|a|>c+<)(d|a|>c<)
  82.  (g|>d<|>f+<)(g|>c+<|>e<)(f+|>c+<|>e<)(f+|b|>d<)
  83.  (e|b|>d<)(e|a|>c+<)(d|a|>c+<)(d|a|>c<)
  84.  (g|>d<|>f+<)(g|>c+<|>e<)(f+|>c+<|>e<)(f+|b|>d<)
  85.  (e|b|>d<)(e|a|>c+<)(d|g|b)(d|f+|a);
  86. 10[1]=
  87.  $(n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,2,100@h10)3
  88.  n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,4,100r8@h10n45,8,50
  89.  $(n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,2,100@h10)3
  90.  n36,2,100n75,2,100@h11n38,8,90@h10n36,8,90r8@h10n50,8,70r8n48,8,60
  91.  @h11$(n38,16,70)2@h10n45,8,70;
  92. 10[2]=
  93.  $($(n42,8,90n42,8,30n42,8,100n42,8,30)4)7
  94.  $(n42,8,90n42,8,30n42,8,100n42,8,30)3 r8n49,8,30;
  95. }
  96.  
  97. #ifndef FLAG
  98. # define FLAG
  99.  
  100. Section-C
  101. {
  102. 2[0]=l1
  103.  (d|f+|a)(d|g|b)(e|a|>c+<)(f+|b|>d<)
  104.  (d|f+|a)(d|g|b)(e|a|>c+<)(f+|b|>d<);
  105. 10[1]=
  106.  $(n36,2,100n75,2,100n36,4,100r8n36,8,60@h11n38,2,100@h10)3
  107.  n36,2,100n75,2,100@h11n38,8,90@h10n36,8,90r8@h10n50,8,70r8n48,8,60
  108.  @h11$(n38,16,70)2@h10n45,8,70;
  109. 10[2]=
  110.  $($(n42,8,90n42,8,30n42,8,100n42,8,30)4)3
  111.  $(n42,8,90n42,8,30n42,8,100n42,8,30)3 r8n49,8,30;
  112. }
  113.  
  114. #else
  115.  
  116. # for 2
  117. Section-D
  118. {
  119. 1[0]=l8 t-10
  120.  <b.b.>dg.f+.e d4.dd2;
  121. 2[0]=l2
  122.  (e|b|>d<)(e|a|>c+<)(d|g|b)(d|f+|a);
  123. }
  124. # next
  125.  
  126. #endif 
  127.  
  128. #next
  129.